home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / m2 / Storage.mod < prev   
Encoding:
Modula Implementation  |  1994-12-23  |  516 b   |  24 lines
  1. IMPLEMENTATION MODULE Storage ;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS ;
  4. IMPORT StdLib, M2Lib ;
  5.  
  6. PROCEDURE ALLOCATE( VAR adr : ADDRESS ; size : LONGINT ) ;
  7. BEGIN
  8.   adr := StdLib.calloc( 1 , size ) ;
  9.   IF adr = NIL THEN
  10.     M2Lib._ErrorReq("Storage.ALLOCATE","Could not allocate memory")
  11.   END
  12. END ALLOCATE ;
  13.  
  14. PROCEDURE DEALLOCATE( VAR adr : ADDRESS ; size : LONGINT ) ;
  15. BEGIN
  16.   IF adr = NIL THEN
  17.     M2Lib._ErrorReq("Storage.DEALLOCATE","NIL pointer")
  18.   END ;
  19.   StdLib.free( adr ) ;
  20.   adr := NIL
  21. END DEALLOCATE ;
  22.  
  23. END Storage.
  24.